home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / misc / a-d / assist17 / rexx / intro.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1992-09-02  |  1.2 KB  |  37 lines
  1. /* Intro.REXX
  2. Load the intro file and go to
  3. the node intro...(hm!)
  4.    Written by Mark 'Force' Papadakis   gsa50@cs.teiher.gr */
  5.  
  6. Say "AREXX script for Assist; Loads my intro.help file and view ALL the nodes.."
  7. Say "Quite simple, really!                AREXX-Power2ThePeople!!"
  8.  
  9. OPTIONS RESULTS
  10. /* If Assist is not ready yet, just load it! */
  11. if ~Show('P','ASSIST.1') then do
  12.    Say "Loading Assist.."
  13.    Address command "run > nil: AUX_PRG:Assist"
  14.    Say "Assist just loaded!"
  15.    Say "Please, wait until the port is ready!"
  16.    Address command "WaitForPort ASSIST.1"
  17.    Say "AREXX port installed!"
  18.    Say "=-   Select {CANCEL} from filerequester to continue!   -="
  19. end
  20. ADDRESS 'ASSIST.1'
  21. Say "Loading intro file.."
  22. /* If Assist was just loaded, you will have to select cancel
  23. in the filerequester to continue */
  24. Load 'AUX_PRG:Intro.help'   /* Load the file             */
  25. GoTo 'Main'               /* Jump to the node MAIN    */
  26. /*See all nodes! */
  27. ReDisplay            /* Just to ensure the display is ok */
  28. DO i = 1 to 27       /* WOW! */
  29.    NEXT             /* Take a look at the next node */
  30. END I
  31. /* Hey, i have to introduce myself, dont you think guys? :-) */
  32. About
  33. Say "That was it folks!"
  34. Exit
  35.  
  36.  
  37.